home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 35 / PC Gamer IT CD 35 2-2.iso / utility / prokal63 / ProKalc.exe / 0 / RCDATA / TINTERESTFORM / TINTERESTFORM.txt
Text File  |  1998-09-10  |  3KB  |  139 lines
  1. object InterestForm: TInterestForm
  2.   Left = 444
  3.   Top = 204
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Interest'
  7.   ClientHeight = 222
  8.   ClientWidth = 277
  9.   Color = clSilver
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clBlack
  12.   Font.Height = -13
  13.   Font.Name = 'Arial'
  14.   Font.Style = [fsBold]
  15.   Scaled = False
  16.   OnActivate = FormActivate
  17.   OnClose = FormClose
  18.   PixelsPerInch = 96
  19.   TextHeight = 16
  20.   object PeriodLabel: TLabel
  21.     Left = 10
  22.     Top = 110
  23.     Width = 101
  24.     Height = 31
  25.     Alignment = taCenter
  26.     AutoSize = False
  27.     Caption = 'Compounding Period:'
  28.     WordWrap = True
  29.   end
  30.   object InterestGroup: TRadioGroup
  31.     Left = -4
  32.     Top = 0
  33.     Width = 281
  34.     Height = 105
  35.     Hint = 
  36.       'Select "Nominal Rate" or "Actual Rate" given'#13'compounding period ' +
  37.       'and opposite value.|'
  38.     Ctl3D = True
  39.     ItemIndex = 1
  40.     Items.Strings = (
  41.       'Nominal Rate (%):'
  42.       'Actual Rate (%):')
  43.     ParentCtl3D = False
  44.     ParentShowHint = False
  45.     ShowHint = True
  46.     TabOrder = 0
  47.   end
  48.   object InterestHelpButton: TBitBtn
  49.     Left = 196
  50.     Top = 186
  51.     Width = 75
  52.     Height = 26
  53.     Hint = 'Get help...'
  54.     ParentShowHint = False
  55.     ShowHint = True
  56.     TabOrder = 1
  57.     OnClick = InterestHelpButtonClick
  58.     Kind = bkHelp
  59.   end
  60.   object CloseInterestButton: TBitBtn
  61.     Left = 114
  62.     Top = 186
  63.     Width = 75
  64.     Height = 26
  65.     Hint = 'Return to calculator.'
  66.     ParentShowHint = False
  67.     ShowHint = True
  68.     TabOrder = 2
  69.     OnClick = CloseInterestButtonClick
  70.     Kind = bkClose
  71.   end
  72.   object InterestSolveButton: TBitBtn
  73.     Left = 32
  74.     Top = 186
  75.     Width = 75
  76.     Height = 26
  77.     Hint = 'Solve for value selected.'
  78.     Caption = '&Solve'
  79.     ParentShowHint = False
  80.     ShowHint = True
  81.     TabOrder = 3
  82.     OnClick = InterestSolveButtonClick
  83.   end
  84.   object PeriodDropDown: TComboBox
  85.     Left = 122
  86.     Top = 112
  87.     Width = 145
  88.     Height = 24
  89.     Hint = 'Select compounding period.|'
  90.     Style = csDropDownList
  91.     ItemHeight = 16
  92.     Items.Strings = (
  93.       'Annual'
  94.       'Day (360)'
  95.       'Day (365)'
  96.       'Monthly'
  97.       'Quarterly'
  98.       'Semi-Annual'
  99.       'Weekly')
  100.     ParentShowHint = False
  101.     ShowHint = True
  102.     TabOrder = 4
  103.   end
  104.   object NominalRateEnter: TMemo
  105.     Left = 150
  106.     Top = 28
  107.     Width = 115
  108.     Height = 25
  109.     Alignment = taRightJustify
  110.     Color = clBlack
  111.     Font.Charset = DEFAULT_CHARSET
  112.     Font.Color = clLime
  113.     Font.Height = -13
  114.     Font.Name = 'System'
  115.     Font.Style = [fsBold]
  116.     ParentFont = False
  117.     TabOrder = 5
  118.     WordWrap = False
  119.     OnKeyUp = NominalRateEnterKeyUp
  120.   end
  121.   object ActualRateEnter: TMemo
  122.     Left = 150
  123.     Top = 70
  124.     Width = 115
  125.     Height = 25
  126.     Alignment = taRightJustify
  127.     Color = clBlack
  128.     Font.Charset = DEFAULT_CHARSET
  129.     Font.Color = clLime
  130.     Font.Height = -13
  131.     Font.Name = 'System'
  132.     Font.Style = [fsBold]
  133.     ParentFont = False
  134.     TabOrder = 6
  135.     WordWrap = False
  136.     OnKeyUp = ActualRateEnterKeyUp
  137.   end
  138. end
  139.